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FFFFFFFFFRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTTT LLet 
FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 
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6-SEP=1984 


-TITLE FORSREAD_SF = enery point for FORTRAN READ SEQ GT TAL FORMATTED 
SIDENT §/1-011/ e: FORREADSF.MAR Edit: JAWI011 


=MARABARASAARASLAAAASALALASALAALARASASAS ASE L ARERR ERR RE REAR ARRAS SAREE SRSA RASS SE SD 


This puts the correct mask in entry vector, that is FORSS$IO_BEG entry mask. 
Furthermore this module must only use RO and R 
since any other register might not be in the entry mask for FORS$IO0_BEG. 
ENVIRONMENT: User access mode; mixture of AST level or not 
AUTHOR: Richard B. Grove, CREATION DATE: 28-May-78 


MODIFIED BY: 
T. Hastings, 29-July-78 


O08 
a0 :f 
000 > 3 * 
000 8 :* COPYRIGHT (c) 1978, 1980, 1982, 1984 * 
000 3* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. . 
4 8 :* ALL RIGHTS RESERVED. * 
: ® 
0000 10 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND copice * 
0000 11 ;* ONLY IN WIT TERMS OF SUCH LICENSE AND WITH THE * 
8808 \¢ 3* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
000 13 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 14 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
444 12 3* TRANSFERRED. * 
7* ® 
0000 i$ 3* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 18 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
8000 3 3* CORPORATION. * 
7* it 
0000 21 ;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR OTL LABEL ETY OF ITS * 
0000 $§ 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL « 
0000 3* * 
0000 $e ye * 
0000 5 FERRARA AEA E AERA AAA AAAAAAEA ARERR AEAAAAAEEAAAEAEEEAARERKER KAKA AAA HERES 
0000 26 ; 
0000 e7 ;: 
0000 28 3+ 
444 $9 : FACILITY: FORTRAN Support Library - user callable 
0000 ) 3; ABSTRACT: 
0000 ¢ ; 
0000 33 3 This module contains the entry point for the FORTRAN 
0000 <¢ : READ peoueRT ES FORMATTED 1/0 statement. It is simply 
0000 3s a call to FOR$$I0_ BEG with bits in RO which describe the 
4444 38 3 parameter List. FORS$IO_BEG interprets the parameters. 
0000 38 ; MAINTENANCE NOTE: 
9444 ip : The transfer vector (RTLVECTOR+ALLGBL) must have the following: 
0000 41; . TRANSFER FORSREAD_SF 
000 $s 3 . MASK FORS$IO BEG 
000 43; BRW FORSREAB_ SF+2 
608 44; 
00 45; 
000 46 ; 
000 47; 
000 48 ; 
000 49 ; 
000 50 ; 
000 51; 
000 26 ; 
000 5 
0 54 


SOOCooooooooeoeo 


So 
Oo 


FORRTL.SRCJFORREADSF .MAR; 1 (1) 
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1-011 IST TORY ; Detailed Current Edit History 6-SE =}382 8; 38:3 FORRTL.SRCJFORREADSF .MAR; 1 . (3) 
8 : ~SBTTL HiSTORY ; Detailed Current Edit History 
3 ; Edit History for Version 1 
8 61 ; 0-10 = Add comment H out Ry ors. TNH 23-June-78 
86 3; 0-12 = Pass arg i t ROR, add comments. TNH ao i | oe 
00 65 ; 1-001 = Update Sceten ‘auaber and copyright notice. JBS 1 mae + 
8 64 ; 1- ¢ - t ange statement type symbols to be LUB$K... JBS 07-DEC-78 
65 ; 1-005 - Change | prstenens rset symbols to be ee tth JBS 11-DEC-78 
00 66 3 1-004 - gi rective * JBS 
44 67 ; 1-005 = Add FORSREAD SREAD_K FORSREWRITE SF, FORSREWRITE_SO, 
68 ; FORSREAD_IF, free e's <ponsuRi Te. IF, FORSWRITE E_10, 
0000 69 ; FORSREAD- =KU FORSREAD Ic 
0000 70; SBL 2-May-1979 
0000 71 ; 1-006 - Remove : n entry points shes need object time formatting, 
0000 if 3 putting them in FORSENTRY_OBJ so that we can arrange to 
0000 {9 8 ° forest compiler Only when it is needed. 
0000 74; JBS 26-JUN-1979 
0000 75 ; 1-007 - Remove ontry oint FORSENCODE_MF; we will code a new module 
0000 16 3 for it and FOR$$IO_BEG, to see how much 1/0 initiation time 
0000 77; improves. JBS 02-JUL-1979 
0000 78 ; 1-008 = Do likewuse for FORSREAD_DU and FORSWRITE_DuU. 'y- 03-JUL-1979 
0000 79 ; 1-009 - Remove all entry points except FORSREAD_SF; each of the 
0000 80 ; others gets its own module so we can a aiehte ai load 
0000 81 ; the necessary UDF and REC modules. JBS 09 979 
0000 82 ; 1-010 - New parameter form for FORSS$#I0_BEG. SBL 5-Dec-1979 
0000 83 ; 1-011 - Change BRW FORS$IO_BEG+2 to JMP “G*FORSSIO _BEG*2. JAW 21-Feb-1981 
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1-011 DECLARATIONS g-SEp-} 984 0:59:24 CFORRTL.SRCJFORREADSF .MAR; 1 ay 3) 


3 ~SBTTL DECLARATIONS 
6 8 : INCLUDE FILES: 
4 3 3 
$0 91 SFORPAR ; Define inter-module FORTRAN symbols 
000 8 SISBDEF ; Define statement type symbols 
0000 s 
0000 94 ; 
0000 95 ; EXTERNAL SYMBOLS: 
44 38 3 
00 9 
0000 98 -DSABL GBL ; Declare all external symbols 
4443 190 . -EXTRN FORSS$IO_BEG ; common 1/0 statement processing 
0000 101; The ote references are to make sure the necessary UDF and REC 
0000 198 ; modules are loaded. These are the routines which are called through 
44 + 3; the dispatch tables in FORSSDISPAT. 
0000 105 eEXTRN FORSSUDF_RFO, FORSSUDF_RF1, FORSSUDF_RFO 
9000 106 -EXTRN FORSSREC-RSFO, FORSSREC_RSF1, FORSSREC_RSF9 
0000 108; 
0000 109 ; MACROS: 
0000 110; 
0000 111; NONE 
0000 16 3 
0000 113 ; PSECT DECLARATIONS: 
0000 114; 
0000 115 
weet 138 -PSECT _FORSCODE PIC,USR,CON,REL,LCL,SHR,EXE,RD,NOWRT,LONG 
0000 118; 
B38 119 ; EQUATED SYMBOLS: 
000 120; 
0000 121 
0000 1 ¢ 
0000 123; 
0000 124 ; OWN STORAGE: 
0000 1g? 3 
0000 126; NONE 
0000 127 ; 


5 
entry point for FORTRAN READ SEQUENTIA 15-SEP-1984 23:58:51 VAX/VMS Macro v04-00 Page 
FORSREAD. SF = READ Sequential formatted Pate 93:3 724 FORRTL.SRC RCIF FORREADSF .MAR; 1 . 
8 ! 8 -SBTTL FORSREAD_SF = READ Sequential formatted 
131 34+ 
§ : ¢ ; FUNCTIONAL DESCRIPTION: 
§ 134 ; Initialize the FORTRAN I/0 ety to perform 
44 ; 3 3 a READ sequential formatted 1/0 statement. 
38 : ; 3; CALLING SEQUENCE: 
00 139 ; CALL FORSREAD_SF (unit.rl.v. format _adr.mbu.ra 
4 109 : , ert_adr.j.r C, end_adr.jer 3) 
9000 146 ; INPUT PARAMETERS: 
0000 143; 
0000 9144 ; unit.rl.v Logical unit number 
0000 145; format_adr.mbu.ra adr. of Cong i led format byte array 
0000 146; err_adr.j.r optional ERR= address 
0000 147 ; end_adr.j.rJ optional END= address 
0000 148 ; 
0000 149 ; IMPLICIT INPUTS: 
0000 150; 
0000 151; NONE except those used by FORS$$I0_BEG. 
0000 136 ; 
0000 153 ; OUTPUT PARAMETERS: 
0000 154; 
0000 155; NONE 
0000 156; 
0000 157 ; IMPLICIT OUTPUTS: 
0000 158 ; 
0000 159 ; NONE except those left by FORS$S$IO_BEG. 
0000 160; 
0000 161 ; COMPLETION CODES: 
0000 166 3 
0000 163; NONE 
0000 164; 
0000 165 ; SIDE EFFECTS: 
0000 166; 
0000 167 ; NONE except those of FOR$$I0_BEG. 
0000 168 ; 
0000 169 ;-- 
0000 170 
0000' 0000 171 FORSREAD_SF: MASK FORSSIO ~ 
A BOE 16 Roy 7BL #ISBSK_ST_TY_RSF, Statement type 
00000002'GF 17 000 17 G*FORS$10_BEG+ branch past call mask 
000B 174 
000B 175 
0008 176 - END 


6670 bytes (14 pages) of virtua 
There were 20 pages of symbol table space allocated to hold 187 non-local and 0 local symbols. 
176 source Lines were read in Pass 1, produc ing 8 object records in Pass 2. 

9 pages of virtual memory were used to define 2 ma 


memory were used to buffer the intermediate code. 


cros. 
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Symbol table 6-SEP=1984 10:59:24 CFORRTL.SRCIJFORREADSF .MAR; 1 (4) | Sy 
FORSS10_BEG eeeeeree xX 00 | FO 
FORSSREC_RSFO eereeeee =X § FO 
FORSSREC_RSF 1 eeeeeeee =X | FO 
FORSSREC_RSF9 eeeeeree =X $ FO 
ORSSUDF —RFO eeeeeeee 8 6X FO 
ORSSUDF _RF1 eereeeee xX 00 | FO 
FORSSUDF _RF9 eereenee = X 00 IS 
FORSREAD_SF 00000000 RG 01 
ISBSK_ST_TY_RSF = 0000000 
meme wen me ere ma oen + | 
! Psect synopsis ! 
Peano moe moe anaes d | 
PSECT name Al Location PSECT No. Attributes | 
- «ABS. 00000000 < 0.) 00 ¢ QO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_FORSCODE 00000008 « 11.) #O1¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
bon me nmmenrane see woe wen e eae a + 
H Performance indicators : 
Phase Page faults CPU Time Elapsed Time 
Initialization 34 00:00:00.09 00:00:00.61 
Command processing 141 00:00:00.62 00:00:04.25 
Pass 127 00:00:01.24 00:00:04.68 | 
Symbol table sort 0 00:00:00.19 00:00:00.24 
Pass 2 45 00:00:00.47 00:00:02.27 
Symbol table output 3 OB 88: 85°05 00:00:00.07 
Psect synopsis output 2 00:00:00.0 00:00:00.30 | 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 354 00:00:02.65 00:00:12.43 
The working set Limit was 1050 pages. 
| 


See we eee neem ere oon ee oe} 


Macro library name 


_$255$DUA28: FORRTL .OBJIFORRTL MLB; 1 
$255$DUA28: (SYSLIBISTARLET.MLB; 

TOTALS (all Libraries) 

183 GETS were required to define 2 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/D1 SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:FORREADSF /OBJ=OBJ$:FORREADSF MSRC$:FORREADSF /UPDATE=(ENHS$:FORREADSF ) +L1 
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